home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / mus / midi / tf102_de.lha / tracks&fieldsdemo / T&F_HDInstall < prev    next >
Text File  |  1996-08-31  |  4KB  |  144 lines
  1. ;-------------------------------------------------
  2. ; HD Installation script for Tracks&Fields
  3. ; Copyright © 1996 by Dick Roström.
  4. ; Written by Dick Roström.
  5. ;-------------------------------------------------
  6. ;$VER: Tracks&Fields HDInstall 1.0 ()
  7.  
  8. ; Check kickversion.
  9. ;-------------------
  10.  
  11.   (if (< (/ (getversion) 65536) 39)
  12.    (abort "Tracks&Fields will only run under Kickstart 3.0 or above!")
  13.   )
  14.  
  15. ; Select drawer.
  16. ;---------------
  17.  
  18.   (welcome)
  19.   (set @default-dest (getassign "TF" "dva"))
  20.   (if (= @default-dest "")
  21.    ((set @default-dest (getassign "Work" "dva"))
  22.     (if (= @default-dest "") (set @default-dest (getassign "SYS" "dva")))
  23.     (set @default-dest (askdir (prompt "Please select a drive or drawer where\nTracks&Fields should be installed!\nA drawer will be created there.")
  24.     (help "In this location a drawer will be created. All files except the libraries and the font will be installed inside this drawer.")
  25.     (default @default-dest)))
  26.     (set @default-dest (tackon @default-dest "Tracks&Fields"))
  27.    )
  28.    ((set bool (askbool (prompt "Installing Tracks&Fields in\n" @default-dest) (default 1) (help @askbool-help)))
  29.     (if (= bool 0)
  30.      ((set @default-dest (getassign "SYS" "dva"))
  31.       (set @default-dest (askdir (prompt "Please select a drive or drawer where\nTracks&Fields should be installed!\nA drawer will be created there.")
  32.       (help "In this location a drawer will be created. All files except the libraries will be installed inside this drawer.")
  33.       (default @default-dest)))
  34.       (set @default-dest (tackon @default-dest "Tracks&Fields"))
  35.      )
  36.     )
  37.    )
  38.    )
  39.  
  40. ; Copy Musicline Editor files to main dir.
  41. ;-----------------------------------------
  42.  
  43.   (working "Checking for Tracks&Fields files.")
  44.   (copyfiles (prompt "Install Tracks&Fields.")
  45.    (source "Tracks&Fields")
  46.    (dest @default-dest)
  47.    (pattern "#?")
  48.    (files)
  49.    (infos)
  50.    (optional fail)
  51.    (confirm)
  52.    (help @copyfiles-help)
  53.   )
  54.   (set Destination (substr @default-dest 0 (- (strlen @default-dest) 15)))
  55.  
  56. ; Copy Commands.
  57. ;------------------
  58.  
  59.   (working "Checking for commands.")
  60.   (makedir (tackon @default-dest "Commands"))
  61.   (if (= (exists "Tracks&Fields/Commands" (noreq)) 2)
  62.    (copyfiles (prompt "Install Commands.")
  63.     (source "Tracks&Fields/Commands")
  64.     (dest (tackon @default-dest "Commands"))
  65.     (all)
  66.     (optional fail force)
  67.     (confirm)
  68.     (help @copyfiles-help)
  69.    )
  70.   )
  71.  
  72. ; Copy Songs.
  73. ;------------------
  74.  
  75.   (working "Checking for songs.")
  76.   (makedir (tackon @default-dest "Songs"))
  77.   (if (= (exists "Tracks&Fields/Songs" (noreq)) 2)
  78.    (copyfiles (prompt "Install Songs.")
  79.     (source "Tracks&Fields/Songs")
  80.     (dest (tackon @default-dest "Songs"))
  81.     (all)
  82.     (optional fail force)
  83.     (confirm)
  84.     (help @copyfiles-help)
  85.    )
  86.   )
  87.  
  88. ; Copy Source.
  89. ;------------------
  90.  
  91.   (working "Checking for source.")
  92.   (makedir (tackon @default-dest "Source"))
  93.   (if (= (exists "Tracks&Fields/Source" (noreq)) 2)
  94.    (copyfiles (prompt "Install Source.")
  95.     (source "Tracks&Fields/Source")
  96.     (dest (tackon @default-dest "Source"))
  97.     (all)
  98.     (optional fail force)
  99.     (confirm)
  100.     (help @copyfiles-help)
  101.    )
  102.   )
  103.  
  104. ; Make Sysex directory.
  105. ;------------------
  106.  
  107.   (working "Checking for Sysex.")
  108.   (makedir (tackon @default-dest "Sysex"))
  109.   (if (= (exists "Tracks&Fields/Sysex" (noreq)) 2)
  110.    (copyfiles (prompt "Install Sysex.")
  111.     (source "Tracks&Fields/Sysex")
  112.     (dest (tackon @default-dest "Sysex"))
  113.     (all)
  114.     (optional fail force)
  115.     (confirm)
  116.     (help @copyfiles-help)
  117.    )
  118.   )
  119.   
  120.  
  121. ; Copy libs to LIBS:
  122. ;------------------------
  123.  
  124.   (copyfiles (prompt "Install Tracks&Fields libraries")
  125.    (source "Tracks&Fields/Libs")
  126.    (dest "LIBS:")
  127.    (all)
  128.    (optional fail force)
  129.    (confirm)
  130.    (help @copyfiles-help)
  131.   )
  132.  
  133.  
  134. ; Make assign in user-startup
  135. ;----------------------------
  136.  
  137.   (startup "Tracks&Fields" (prompt "Making assign for Tracks&Fields in user-startup.")
  138.    (command "Assign TF: " (expandpath (@default-dest)))
  139.    (help @startup-help)
  140.   )
  141.  
  142.   (makeassign "TF" @default-dest)
  143.   (exit "")
  144.